Imports System
Imports System.IO

Public Module HuffmanMain
	Sub Main()
		Dim oFile as FileInfo
		oFile = New FileInfo("poe1.txt")
		Dim oFileStream As FileStream = oFile.OpenRead()
		Dim lBytes As Int32 = oFileStream.Length
		
		If(lBytes > 0) Then
			Dim fileData (lBytes-1) As Byte
			oFileStream.Read(fileData,0,lBytes)
			oFileStream.Close()

			Dim CMP() As Byte = HuffmanCoding.CompressByteArray(fileData)

		End If
		
	End Sub
End Module
